Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/misc/volume8/libhoward/part09

Text File | 1989-09-30 | 42.7 KB | 1,431 lines

Newsgroups: comp.sources.misc
subject: v08i087: libhoward portability library, part 9 of 9
from: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Reply-To: [e-mail] (Howard Gayle)

Posting-number: Volume 8, Issue 87
Submitted-by: [e-mail] (Howard Gayle)
Archive-name: libhoward/part09

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to [e-mail] if you want that tool.
# If this archive is complete, you will see the following message at the end:
#        "End of archive 9 (of 9)."
# Contents:  FREEZE.c a2.h b.bib cat-path.b freeze.b freeze0.b getopt.c
#   latin-lt.tex lnR.b mkAr.b mkCIncl.b mkDistI.b mkDistO.b mkInstF.b
#   mkInstX.b mkLaTeXPS.b mkLibIncl.b mkManPS.b mkSpellLT.b
#   mkUncmprs.b new-bib.b new-el.b new-h.b new.b smp.h unix-lt.tex
#   version.h year.h
# Wrapped by howard@hasse on Mon Sep 25 07:08:18 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'FREEZE.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'FREEZE.c'\"
else
echo shar: Extracting \"'FREEZE.c'\" \(138 characters\)
sed "s/^X//" >'FREEZE.c' <<'END_OF_FILE'
X/* $Header: FREEZE.c,v 1.1 89/08/05 08:46:25 howard Exp $ */
X#include "FREEZE.i"
X#ifndef lint
Xstatic char _frz_id[] = FRZ_ID;
X#endif lint
END_OF_FILE
if test 138 -ne `wc -c <'FREEZE.c'`; then
    echo shar: \"'FREEZE.c'\" unpacked with wrong size!
fi
# end of 'FREEZE.c'
fi
if test -f 'a2.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'a2.h'\"
else
echo shar: Extracting \"'a2.h'\" \(1397 characters\)
sed "s/^X//" >'a2.h' <<'END_OF_FILE'
X/*
X * a2 - declare conversion functions from Ada-syntax integer literals
X *
X * Copyright 1989 Howard Lee Gayle
X *
X * $Header: a2.h,v 1.4 89/06/22 15:11:58 howard Exp $
X *
X * This program is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License version 1,
X * as published by the Free Software Foundation.
X *
X * This program is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X *
X * Prerequisites: howard/port.h.
X */
X
X/* These return codes: */
XPUBLIC int a2d();  /* To double.*/
XPUBLIC int a2i();  /* To int.*/
XPUBLIC int a2l();  /* To long.*/
XPUBLIC int a2u();  /* To unsigned.*/
XPUBLIC int a2ul(); /* To unsigned long.*/
X
X/* These call malf1() on error: */
XPUBLIC double   ma2d();
XPUBLIC int      ma2i();
XPUBLIC long     ma2l();
XPUBLIC unsigned ma2u();
XPUBLIC ulongT   ma2ul();
X
X/* These call malf1() on error, and include range checking: */
XPUBLIC double   mra2d();
XPUBLIC int      mra2i();
XPUBLIC long     mra2l();
XPUBLIC unsigned mra2u();
XPUBLIC ulongT   mra2ul();
END_OF_FILE
if test 1397 -ne `wc -c <'a2.h'`; then
    echo shar: \"'a2.h'\" unpacked with wrong size!
fi
# end of 'a2.h'
fi
if test -f 'b.bib' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'b.bib'\"
else
echo shar: Extracting \"'b.bib'\" \(1182 characters\)
sed "s/^X//" >'b.bib' <<'END_OF_FILE'
X% b.bib - bibliography
X%
X% Copyright 1989 Howard Lee Gayle
X% This file is written in the ISO 8859/1 character set.
X%
X% $Header: b.bib,v 1.1 89/09/20 12:35:29 howard Exp $
X%
X% This program is free software; you can redistribute it and/or modify
X% it under the terms of the GNU General Public License version 1,
X% as published by the Free Software Foundation.
X%
X% This program is distributed in the hope that it will be useful,
X% but WITHOUT ANY WARRANTY; without even the implied warranty of
X% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X% GNU General Public License for more details.
X%
X% You should have received a copy of the GNU General Public License
X% along with this program; if not, write to the Free Software
X% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X@book{Lapin,
X   author = "J. E. Lapin",
X   title = "Portable C and UNIX system programming",
X   publisher = "Prentice-Hall",
X   year = "1987",
X   address = "Englewood Cliffs, New Jersey"}
X@article{Weiser:Source,
X   author = "Mark Weiser",
X   title = "Source Code",
X   journal = "Computer",
X   year = "1987",
X   volume = "20",
X   number = "11",
X   pages = "66--73",
X   month = "November"}
END_OF_FILE
if test 1182 -ne `wc -c <'b.bib'`; then
    echo shar: \"'b.bib'\" unpacked with wrong size!
fi
# end of 'b.bib'
fi
if test -f 'cat-path.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'cat-path.b'\"
else
echo shar: Extracting \"'cat-path.b'\" \(1238 characters\)
sed "s/^X//" >'cat-path.b' <<'END_OF_FILE'
X
X# cat-path.b - search path for files and concatenate them
X#
X# $Header: cat-path.b,v 1.1 89/09/21 08:01:10 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# d - directory in path
X# f - steps through files to create
X# p - path to search
X# u - usage string
X
XCMDNAME=cat-path
Xexport CMDNAME
Xu="Usage: $CMDNAME path file..."
Xif [ $# -lt 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xp=`echo "$1" | sed -e 's;:; ;g'`
Xshift
Xfor f
Xdo
X   for d in $p
X   do
X      if [ -r "$d/$f" ]
X      then
X         cat "$d/$f"
X         break
X      fi
X   done
Xdone
END_OF_FILE
if test 1238 -ne `wc -c <'cat-path.b'`; then
    echo shar: \"'cat-path.b'\" unpacked with wrong size!
fi
# end of 'cat-path.b'
fi
if test -f 'freeze.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'freeze.b'\"
else
echo shar: Extracting \"'freeze.b'\" \(1384 characters\)
sed "s/^X//" >'freeze.b' <<'END_OF_FILE'
X
X# freeze - update RCS FREEZE file
X#
X# $Header: freeze.b,v 1.8 89/09/21 19:21:19 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=freeze
Xexport CMDNAME
Xu='Usage: $CMDNAME [-rRevision]'
Xif [ $# -gt 1 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xif [ ! -d RCS ]
Xthen
X   echo '$CMDNAME: no RCS directory' 1>&2
X   exit 1
Xfi
Xif [ -f RCS/FREEZE,v ]
Xthen
X   co -l FREEZE
X   co -p FREEZE | \
X      sed -e '/^========================================$/,$d' > FREEZE
Xelse
X   echo '$''Header$' > FREEZE
X   echo '$''Log$' >> FREEZE
Xfi
Xecho '========================================' >> FREEZE
Xfreeze0 RCS/*,v >> FREEZE
Xci $1 FREEZE < /dev/null && rcs -L FREEZE && co FREEZE
END_OF_FILE
if test 1384 -ne `wc -c <'freeze.b'`; then
    echo shar: \"'freeze.b'\" unpacked with wrong size!
fi
# end of 'freeze.b'
fi
if test -f 'freeze0.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'freeze0.b'\"
else
echo shar: Extracting \"'freeze0.b'\" \(1286 characters\)
sed "s/^X//" >'freeze0.b' <<'END_OF_FILE'
X
X# freeze0 - write name and revision of RCS files
X#
X# $Header: freeze0.b,v 1.6 89/09/21 19:21:28 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# f - file name
X# u - usage string
X
Xu='Usage: freeze0 file...'
Xif [ $# -eq 0 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xfor f
Xdo
X   if [ "$f" != RCS/FREEZE,v ]
X   then
X      rlog $f | awk '/^RCS file:/{printf "%-12s", $6}
X/^head:/{printf " %-7s", $2}
X/^date:/{if (!d) {y = substr ($2, 1, 2);
X   if (y < 70) y += 2000; else y += 1900;
X   printf " %d-%s-%s %s\n", y, substr ($2, 4, 2), substr ($2, 7, 2), substr ($3, 1, 8); d = 1;}}'
X   fi
Xdone
END_OF_FILE
if test 1286 -ne `wc -c <'freeze0.b'`; then
    echo shar: \"'freeze0.b'\" unpacked with wrong size!
fi
# end of 'freeze0.b'
fi
if test -f 'getopt.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'getopt.c'\"
else
echo shar: Extracting \"'getopt.c'\" \(1290 characters\)
sed "s/^X//" >'getopt.c' <<'END_OF_FILE'
X/*
X * getopt - decode command-line options
X *
X * Public domain code by ATT.  Modified by Henry Spencer.
X */
X
X#include <stdio.h>
X#include <howard/port.h>
X#include <howard/version.h>
X
XMODVER ("@(#)$Header: getopt.c,v 1.1 89/08/29 17:16:53 howard Exp $");
X
X#ifdef NOGETOPT
X
X#include <string.h>
Xchar    *optarg;    /* Global argument pointer. */
Xint    optind = 0;    /* Global argv index. */
X
Xstatic char    *scan = NULL;    /* Private scan pointer. */
X
Xint
Xgetopt(argc, argv, optstring)
Xint argc;
Xchar *argv[];
Xchar *optstring;
X{
X    register char c;
X    register char *place;
X
X    optarg = NULL;
X
X    if (scan == NULL || *scan == '\0') {
X        if (optind == 0)
X            optind++;
X
X        if (optind >= argc || argv[optind][0] != '-' || argv[optind][1] == '\0')
X            return(EOF);
X        if (strcmp(argv[optind], "--")==0) {
X            optind++;
X            return(EOF);
X        }
X
X        scan = argv[optind]+1;
X        optind++;
X    }
X
X    c = *scan++;
X    place = strchr(optstring, c);
X
X    if (place == NULL || c == ':') {
X        fprintf(stderr, "%s: unknown option -%c\n", argv[0], c);
X        return('?');
X    }
X
X    place++;
X    if (*place == ':') {
X        if (*scan != '\0') {
X            optarg = scan;
X            scan = NULL;
X        } else if (optind < argc) {
X            optarg = argv[optind];
X            optind++;
X        } else {
X            fprintf(stderr, "%s: -%c argument missing\n", argv[0], c);
X            return('?');
X        }
X    }
X
X    return(c);
X}
X#endif NOGETOPT
END_OF_FILE
if test 1290 -ne `wc -c <'getopt.c'`; then
    echo shar: \"'getopt.c'\" unpacked with wrong size!
fi
# end of 'getopt.c'
fi
if test -f 'latin-lt.tex' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'latin-lt.tex'\"
else
echo shar: Extracting \"'latin-lt.tex'\" \(1147 characters\)
sed "s/^X//" >'latin-lt.tex' <<'END_OF_FILE'
X% latin-lt.tex - TeX/LaTeX macros for Latin phrases and abbreviations
X%
X% Copyright 1989 Howard Lee Gayle
X% This file is written in the ISO 8859/1 character set.
X%
X% $Header: latin-lt.tex,v 1.3 89/09/19 12:04:12 howard Exp $
X%
X% This program is free software; you can redistribute it and/or modify
X% it under the terms of the GNU General Public License version 1,
X% as published by the Free Software Foundation.
X%
X% This program is distributed in the hope that it will be useful,
X% but WITHOUT ANY WARRANTY; without even the implied warranty of
X% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X% GNU General Public License for more details.
X%
X% You should have received a copy of the GNU General Public License
X% along with this program; if not, write to the Free Software
X% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X\def \defacto {{\it de facto}\null}
X\def \eg {{\it e.g.}\null}
X\def \etal {{\it et al.}\null}
X\def \etc {{\it etc.}\null}
X\def \etcP {{\it etc}}% etc followed by end of sentence.
X\def \ie {{\it i.e.}\null}
X\def \perse {{\it per se}\null}
X\def \vice {{\it vice versa}\null}
X\def \vs {{\it vs.}\null}
END_OF_FILE
if test 1147 -ne `wc -c <'latin-lt.tex'`; then
    echo shar: \"'latin-lt.tex'\" unpacked with wrong size!
fi
# end of 'latin-lt.tex'
fi
if test -f 'lnR.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'lnR.b'\"
else
echo shar: Extracting \"'lnR.b'\" \(1332 characters\)
sed "s/^X//" >'lnR.b' <<'END_OF_FILE'
X
X# lnR - shallow-copy subtree
X#
X# $Header: lnR.b,v 1.3 89/09/21 19:22:13 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# a - auxiliary command
X# s - flag set for -s (symbolic link) option
X# v - flag set for -v (verbose) option
X# u - usage string
X
XCMDNAME=lnR
Xexport CMDNAME
Xu='Usage: $CMDNAME [-s] [-v] from to'
Xa=lnR0
Xs=' '
Xv=0
Xwhile [ $# -gt 2 ]
Xdo
X   case "x$1" in
X      x-s) s='-s' ;;
X      x-v) v='1'  ;;
X      *) echo "$u" 1>&2; exit 1 ;;
X   esac
X   shift
Xdone
Xif [ $# -ne 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
X$a "$s" "$v" "$1" "$2"
Xcd "$1"
Xfind . -print | sed -e '1d' -e 's;^\./;;' | xargs -i $a "$s" "$v" {} "$2/{}"
END_OF_FILE
if test 1332 -ne `wc -c <'lnR.b'`; then
    echo shar: \"'lnR.b'\" unpacked with wrong size!
fi
# end of 'lnR.b'
fi
if test -f 'mkAr.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkAr.b'\"
else
echo shar: Extracting \"'mkAr.b'\" \(1012 characters\)
sed "s/^X//" >'mkAr.b' <<'END_OF_FILE'
X# mkAr.b - create a C function library
X#
X# $Header: mkAr.b,v 1.1 89/09/22 13:37:21 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkAr
Xexport CMDNAME
Xu="Usage: $CMDNAME library file.o..."
Xif [ $# -lt 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xar rc $* && ranlib $1 && chmod a=r $1
END_OF_FILE
if test 1012 -ne `wc -c <'mkAr.b'`; then
    echo shar: \"'mkAr.b'\" unpacked with wrong size!
fi
# end of 'mkAr.b'
fi
if test -f 'mkCIncl.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkCIncl.b'\"
else
echo shar: Extracting \"'mkCIncl.b'\" \(1140 characters\)
sed "s/^X//" >'mkCIncl.b' <<'END_OF_FILE'
X
X# mkCIncl - find include file dependencies of C source files
X#
X# $Header: mkCIncl.b,v 1.3 89/09/21 19:22:21 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# f - steps through C source files
X# i - -I options to cpp
X# u - usage string
X
XCMDNAME=mkCIncl
Xexport CMDNAME
Xu='Usage: $CMDNAME includes file.c ...'
Xif [ $# -lt 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xi="$1"
Xshift
Xfor f
Xdo
X   /lib/cpp -M $i $f | sed -e 's;\.o: ;: ;'
Xdone
Xexit 0
END_OF_FILE
if test 1140 -ne `wc -c <'mkCIncl.b'`; then
    echo shar: \"'mkCIncl.b'\" unpacked with wrong size!
fi
# end of 'mkCIncl.b'
fi
if test -f 'mkDistI.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkDistI.b'\"
else
echo shar: Extracting \"'mkDistI.b'\" \(1007 characters\)
sed "s/^X//" >'mkDistI.b' <<'END_OF_FILE'
X
X# mkDistI - install file from dist directory
X#
X# $Header: mkDistI.b,v 1.4 89/09/21 19:22:24 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
XCMDNAME=mkDistI
Xexport CMDNAME
Xu='Usage: $CMDNAME file dist-directory'
Xif [ $# -ne 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xrm -f $1
Xln -s $2/$1
END_OF_FILE
if test 1007 -ne `wc -c <'mkDistI.b'`; then
    echo shar: \"'mkDistI.b'\" unpacked with wrong size!
fi
# end of 'mkDistI.b'
fi
if test -f 'mkDistO.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkDistO.b'\"
else
echo shar: Extracting \"'mkDistO.b'\" \(1004 characters\)
sed "s/^X//" >'mkDistO.b' <<'END_OF_FILE'
X
X# mkDistO - place file in dist directory
X#
X# $Header: mkDistO.b,v 1.3 89/09/21 19:22:26 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkDistO
Xexport CMDNAME
Xu='Usage: $CMDNAME file dist-directory'
Xif [ $# -ne 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xrm -f $2/$1
Xln $1 $2
END_OF_FILE
if test 1004 -ne `wc -c <'mkDistO.b'`; then
    echo shar: \"'mkDistO.b'\" unpacked with wrong size!
fi
# end of 'mkDistO.b'
fi
if test -f 'mkInstF.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkInstF.b'\"
else
echo shar: Extracting \"'mkInstF.b'\" \(1025 characters\)
sed "s/^X//" >'mkInstF.b' <<'END_OF_FILE'
X
X# mkInstF - install a non-executable file or shell file
X#
X# $Header: mkInstF.b,v 1.3 89/09/21 19:22:29 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkInstF
Xexport CMDNAME
Xu='Usage: $CMDNAME file directory'
Xif [ $# -ne 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xln $1 $2/$1N
Xmv -f $2/$1N $2/$1
END_OF_FILE
if test 1025 -ne `wc -c <'mkInstF.b'`; then
    echo shar: \"'mkInstF.b'\" unpacked with wrong size!
fi
# end of 'mkInstF.b'
fi
if test -f 'mkInstX.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkInstX.b'\"
else
echo shar: Extracting \"'mkInstX.b'\" \(1026 characters\)
sed "s/^X//" >'mkInstX.b' <<'END_OF_FILE'
X
X# mkInstX - install an executable file (not shell files)
X#
X# $Header: mkInstX.b,v 1.3 89/09/21 19:22:32 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkInstX
Xexport CMDNAME
Xu='Usage: $CMDNAME file directory'
Xif [ $# -ne 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xln $1 $2/$1N
Xmv -f $2/$1N $2/$1
END_OF_FILE
if test 1026 -ne `wc -c <'mkInstX.b'`; then
    echo shar: \"'mkInstX.b'\" unpacked with wrong size!
fi
# end of 'mkInstX.b'
fi
if test -f 'mkLaTeXPS.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkLaTeXPS.b'\"
else
echo shar: Extracting \"'mkLaTeXPS.b'\" \(1059 characters\)
sed "s/^X//" >'mkLaTeXPS.b' <<'END_OF_FILE'
X
X# mkLaTeX - format LaTeX file
X#
X# $Header: mkLaTeXPS.b,v 1.3 89/09/20 12:22:10 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkLaTeX
Xexport CMDNAME
Xu="Usage: $CMDNAME LaTeX-source-stem target"
Xif [ $# -ne 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xlatex $1.tex && bibtex $1 && latex $1.tex && latex $1.tex && dvi2ps $1.dvi > $2
END_OF_FILE
if test 1059 -ne `wc -c <'mkLaTeXPS.b'`; then
    echo shar: \"'mkLaTeXPS.b'\" unpacked with wrong size!
fi
# end of 'mkLaTeXPS.b'
fi
if test -f 'mkLibIncl.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkLibIncl.b'\"
else
echo shar: Extracting \"'mkLibIncl.b'\" \(1128 characters\)
sed "s/^X//" >'mkLibIncl.b' <<'END_OF_FILE'
X
X# mkLibIncl - find include file dependencies of C library functions
X#
X# $Header: mkLibIncl.b,v 1.3 89/09/21 19:22:34 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# f - steps through C source files
X# i - -I options to cpp
X# u - usage string
X
XCMDNAME=mkLibIncl
Xexport CMDNAME
Xu='Usage: $CMDNAME includes file.c ...'
Xif [ $# -lt 2 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xi="$1"
Xshift
Xfor f
Xdo
X   /lib/cpp -M $i $f
Xdone
Xexit 0
END_OF_FILE
if test 1128 -ne `wc -c <'mkLibIncl.b'`; then
    echo shar: \"'mkLibIncl.b'\" unpacked with wrong size!
fi
# end of 'mkLibIncl.b'
fi
if test -f 'mkManPS.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkManPS.b'\"
else
echo shar: Extracting \"'mkManPS.b'\" \(1023 characters\)
sed "s/^X//" >'mkManPS.b' <<'END_OF_FILE'
X
X# mkManPS - format manual entry into PostScript
X#
X# $Header: mkManPS.b,v 1.3 89/09/21 19:22:39 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# d - font file
X# u - usage string
X
XCMDNAME=mkManPS
Xexport CMDNAME
Xu='Usage: $CMDNAME troff-file'
Xif [ $# -ne 1 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xptroff -t -man $1 | psrev
END_OF_FILE
if test 1023 -ne `wc -c <'mkManPS.b'`; then
    echo shar: \"'mkManPS.b'\" unpacked with wrong size!
fi
# end of 'mkManPS.b'
fi
if test -f 'mkSpellLT.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkSpellLT.b'\"
else
echo shar: Extracting \"'mkSpellLT.b'\" \(990 characters\)
sed "s/^X//" >'mkSpellLT.b' <<'END_OF_FILE'
X
X# mkSpellLT - spell-check LaTeX source
X#
X# $Header: mkSpellLT.b,v 1.2 89/09/20 12:22:20 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkSpellLT
Xexport CMDNAME
Xu="Usage: $CMDNAME file"
Xif [ $# -ne 1 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xdetex -i $1 | spell
END_OF_FILE
if test 990 -ne `wc -c <'mkSpellLT.b'`; then
    echo shar: \"'mkSpellLT.b'\" unpacked with wrong size!
fi
# end of 'mkSpellLT.b'
fi
if test -f 'mkUncmprs.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'mkUncmprs.b'\"
else
echo shar: Extracting \"'mkUncmprs.b'\" \(1072 characters\)
sed "s/^X//" >'mkUncmprs.b' <<'END_OF_FILE'
X
X# mkUncmprs - uncompress RCS file if necessary and check out
X#
X# $Header: mkUncmprs.b,v 1.3 89/09/21 19:22:42 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# u - usage string
X
XCMDNAME=mkUncmprs
Xexport CMDNAME
Xu='Usage: $CMDNAME target'
Xif [ $# -ne 1 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xif [ -r RCS/$1,v.Z ]
Xthen
X   uncompress RCS/$1,v.Z
X   co $1
Xelse
X   exit 1
Xfi
END_OF_FILE
if test 1072 -ne `wc -c <'mkUncmprs.b'`; then
    echo shar: \"'mkUncmprs.b'\" unpacked with wrong size!
fi
# end of 'mkUncmprs.b'
fi
if test -f 'new-bib.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'new-bib.b'\"
else
echo shar: Extracting \"'new-bib.b'\" \(1265 characters\)
sed "s/^X//" >'new-bib.b' <<'END_OF_FILE'
X
X# new-bib.b - create a new BibTeX source file from a prototype
X#
X# $Header: new-bib.b,v 1.1 89/09/21 11:03:58 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# c - '%'
X# d - '$'
X# f - steps through files to create
X# u - usage string
X
XCMDNAME=new-bib
Xexport CMDNAME
Xu="Usage: $CMDNAME file..."
Xif [ $# -eq 0 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xc='%'
Xd='$'
Xfor f
Xdo
X   cat << EOF > "$f"
X$c $f - BibTeX bibliography file for
X$c
X$c ${d}Header$d
X$c
XEOF
X   if [ "$NEWTEXTPATH" ]
X   then
X      cat-path "$NEWTEXTPATH" new.txt | sed -e "s;^;$c ;" >> "$f"
X   fi
Xdone
END_OF_FILE
if test 1265 -ne `wc -c <'new-bib.b'`; then
    echo shar: \"'new-bib.b'\" unpacked with wrong size!
fi
# end of 'new-bib.b'
fi
if test -f 'new-el.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'new-el.b'\"
else
echo shar: Extracting \"'new-el.b'\" \(1238 characters\)
sed "s/^X//" >'new-el.b' <<'END_OF_FILE'
X
X# new-el.b - create a new elisp source file from a prototype
X#
X# $Header: new-el.b,v 1.1 89/09/21 18:19:01 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# c - ';;'
X# d - '$'
X# f - steps through files to create
X# u - usage string
X
XCMDNAME=new-el
Xexport CMDNAME
Xu="Usage: $CMDNAME file..."
Xif [ $# -eq 0 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xc=';;'
Xd='$'
Xfor f
Xdo
X   cat << EOF > "$f"
X$c $f -
X$c
X$c ${d}Header$d
X$c
XEOF
X   if [ "$NEWTEXTPATH" ]
X   then
X      cat-path "$NEWTEXTPATH" new.txt | sed -e "s/^/$c /" >> "$f"
X   fi
XEOF
Xdone
END_OF_FILE
if test 1238 -ne `wc -c <'new-el.b'`; then
    echo shar: \"'new-el.b'\" unpacked with wrong size!
fi
# end of 'new-el.b'
fi
if test -f 'new-h.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'new-h.b'\"
else
echo shar: Extracting \"'new-h.b'\" \(1280 characters\)
sed "s/^X//" >'new-h.b' <<'END_OF_FILE'
X
X# new-h.b - create a new C include file from a prototype
X#
X# $Header: new-h.b,v 1.1 89/09/21 18:25:40 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# c - ' *'
X# d - '$'
X# f - steps through files to create
X# u - usage string
X
XCMDNAME=new-h
Xexport CMDNAME
Xu="Usage: $CMDNAME file..."
Xif [ $# -eq 0 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xc=' *'
Xd='$'
Xfor f
Xdo
X   cat << EOF > "$f"
X/*
X$c $f -
X$c
X$c ${d}Header$d
X$c
XEOF
X   if [ "$NEWTEXTPATH" ]
X   then
X      cat-path "$NEWTEXTPATH" new.txt | sed -e "s;^;$c ;" >> "$f"
X   fi
X   cat << EOF >> "$f"
X$c Prerequisites:
X */
XEOF
Xdone
END_OF_FILE
if test 1280 -ne `wc -c <'new-h.b'`; then
    echo shar: \"'new-h.b'\" unpacked with wrong size!
fi
# end of 'new-h.b'
fi
if test -f 'new.b' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'new.b'\"
else
echo shar: Extracting \"'new.b'\" \(1430 characters\)
sed "s/^X//" >'new.b' <<'END_OF_FILE'
X
X# new.b - create a new source file from a prototype
X#
X# $Header: new.b,v 1.1 89/09/21 08:00:39 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# f - steps through files to create
X# s - file suffix
X# u - usage string
X
XCMDNAME=new
Xexport CMDNAME
Xu="Usage: $CMDNAME file..."
Xif [ $# -eq 0 ]
Xthen
X   echo "$u" 1>&2
X   exit 1
Xfi
Xfor f
Xdo
X   if [ -r "$f" ]
X   then
X      echo "$CMDNAME: $f already exists" 1>&2
X   else
X      case "$f" in
X         MakeCommon) new-MakeC "$f" ;;
X         Makefile)   new-Make  "$f" ;;
X         uMakefile)  new-uMake "$f" ;;
X         *.*)
X            s=`basename "$f" | sed -e 's;^..*\.;;'`
X            new-"$s" "$f"
X            ;;
X         *) echo "$CMDNAME: $f: no suffix" 1>&2
X      esac
X   fi
Xdone
END_OF_FILE
if test 1430 -ne `wc -c <'new.b'`; then
    echo shar: \"'new.b'\" unpacked with wrong size!
fi
# end of 'new.b'
fi
if test -f 'smp.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'smp.h'\"
else
echo shar: Extracting \"'smp.h'\" \(1420 characters\)
sed "s/^X//" >'smp.h' <<'END_OF_FILE'
X/*
X * smp.h - Include file for simple multiple precision (SMP) system
X *
X * Copyright 1989 Howard Lee Gayle
X *
X * $Header: smp.h,v 1.2 89/08/15 14:31:10 howard Exp $
X *
X * This program is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License version 1,
X * as published by the Free Software Foundation.
X *
X * This program is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X *
X * Prerequisites: howard/port.h, howard/simultipre.h.
X */
X
X/* Fixed positions at the beginning of a digit table: */
X#define DT_IGN  0 /* Characters to ignore.*/
X#define DT_PLUS 1 /* Positive signs.*/
X#define DT_NEG  2 /* Negative signs.*/
X#define DT_RADP 3 /* Radix point.*/
X#define DT_ZERO 4 /* Digit zero.*/
X
Xtypedef unsigned smpElT; /* One SMP element.*/
X
Xtypedef struct
X   {
X   smpElT smp_el[SMPNEL]; /* Array of elements.*/
X   boolT  smp_neg; /* Negative sign.*/
X   } smpT;
X
XPUBLIC int   a2smp();
XPUBLIC int   smp2l();
XPUBLIC int   smp2ul();
XPUBLIC int   smp2u();
XPUBLIC boolT smpdig();
XPUBLIC int   smpdtl();
END_OF_FILE
if test 1420 -ne `wc -c <'smp.h'`; then
    echo shar: \"'smp.h'\" unpacked with wrong size!
fi
# end of 'smp.h'
fi
if test -f 'unix-lt.tex' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'unix-lt.tex'\"
else
echo shar: Extracting \"'unix-lt.tex'\" \(1072 characters\)
sed "s/^X//" >'unix-lt.tex' <<'END_OF_FILE'
X% unix-lt.tex - LaTeX macro to keep ATT lawyers happy
X%
X% Copyright 1989 Howard Lee Gayle
X% This file is written in the ISO 8859/1 character set.
X%
X% $Header: unix-lt.tex,v 1.1 89/08/28 19:15:46 howard Exp $
X%
X% This program is free software; you can redistribute it and/or modify
X% it under the terms of the GNU General Public License version 1,
X% as published by the Free Software Foundation.
X%
X% This program is distributed in the hope that it will be useful,
X% but WITHOUT ANY WARRANTY; without even the implied warranty of
X% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X% GNU General Public License for more details.
X%
X% You should have received a copy of the GNU General Public License
X% along with this program; if not, write to the Free Software
X% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X\def \hgUNIX {UNIX}
X\def \hgUNIXFootnote {\hgUNIX \footnote
X   {\hgUNIX\ is a registered trademark of AT\&T Bell
X   Laboratories in many countries.}}
X\def \hgFirstUNIX {\hgUNIXFootnote \global \let \UNIX = \hgUNIX}
X\let \UNIX = \hgFirstUNIX
END_OF_FILE
if test 1072 -ne `wc -c <'unix-lt.tex'`; then
    echo shar: \"'unix-lt.tex'\" unpacked with wrong size!
fi
# end of 'unix-lt.tex'
fi
if test -f 'version.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'version.h'\"
else
echo shar: Extracting \"'version.h'\" \(415 characters\)
sed "s/^X//" >'version.h' <<'END_OF_FILE'
X/* version - define and initialize version string for malf() and usage()
X *
X * $Header: version.h,v 1.3 89/03/17 15:33:37 howard Exp $
X *
X * Prerequisites: howard/port.h.
X */
X
X/* Version string for main program.*/
X#define MAINVER(x) bStrT _progn = ((bStrT)(x))
X
X/* Version string for modules and library functions.*/
X#ifdef lint
X#define MODVER(x)
X#else lint
X#define MODVER(x) static byteT _modver[] = x
X#endif lint
END_OF_FILE
if test 415 -ne `wc -c <'version.h'`; then
    echo shar: \"'version.h'\" unpacked with wrong size!
fi
# end of 'version.h'
fi
if test -f 'year.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'year.h'\"
else
echo shar: Extracting \"'year.h'\" \(1244 characters\)
sed "s/^X//" >'year.h' <<'END_OF_FILE'
X/*
X * year.h - some definitions for calendars
X *
X * Copyright 1989 Howard Lee Gayle
X *
X * $Header: year.h,v 1.2 89/08/14 09:54:12 howard Exp $
X *
X * This program is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License version 1,
X * as published by the Free Software Foundation.
X *
X * This program is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X
X/* The following macro has the value TRUE iff the year y is a leap year.
X * The rule for Gregorian calendar leap years is that multiples of 4 are,
X * except multiples of 100 aren't, except multiples of 400 are.
X * It has been proposed that multiples of 2000 shouldn't be.*/
X#define LEAPYEAR(y) ((((y)%400)==0) || ((((y)%4)==0) && (((y)%100)!=0)))
X
X/* The following macro gives the number of days in the year y.*/
X#define YEARSIZE(y) (LEAPYEAR (y) ? 366 : 365)
END_OF_FILE
if test 1244 -ne `wc -c <'year.h'`; then
    echo shar: \"'year.h'\" unpacked with wrong size!
fi
# end of 'year.h'
fi
echo shar: End of archive 9 \(of 9\).
cp /dev/null ark9isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 9 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0